home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / cmds / perl / dist / os2 / eg / alarm.pl < prev    next >
Encoding:
Text File  |  1991-06-10  |  260 b   |  17 lines
  1. sub handler {
  2.   local($sig) = @_;
  3.   print "Caught a SIG$sig -- shutting down\n";
  4.   exit(0);
  5. }
  6.  
  7. $SIG{'INT'} = 'handler';
  8. $SIG{'QUIT'} = 'handler';
  9. $SIG{'ALRM'} = 'handler';
  10.  
  11. print "Starting execution ...\n";
  12. alarm(10);
  13.  
  14. while ( <> ) {
  15. }
  16. print "Normal exit.\n";
  17.